(* FILELIB.I - Routines to allow the use of standard ATARI I/O calls in KYAN Pascal programs. FileOpen - Exactly like the ATARI Basic OPEN command. FileClose - Exactly like the ATARI Basic CLOSE command. FileGet - Replace the parameters REC and RECLEN with the name and length of your record and this routine will read one record from the file. FileGetChar - Reads one character from the file. FilePut - The inverse of FileGet. FilePutChar - The inverse of FileGetChar. FileNote - Exactly like the ATARI Basic NOTE command. FilePoint - Exactly like the ATARI Basic POINT command. I don't recommend that you mix these routines with the standard Pascal I/O routines. They were written for use in a small database program that DEMANDED true random access files. Use them with care as none of the protection provided by Pascal is present here. <Mike Long 9/19/86> *)Procedure FileOpen(IOCBnum,IOdir,Auxbyte : Integer; Var FileName : String15);Begin#aICHID EQU $0340ICDNO EQU $0341ICCMD EQU $0342ICSTA EQU $0343ICBAL EQU $0344ICBAH EQU $0345ICPTL EQU $0346ICPTH EQU $0347ICBLL EQU $0348ICBLH EQU $0349ICAX1 EQU $034AICAX2 EQU $034BICAX3 EQU $034CICAX4 EQU $034DICAX5 EQU $034EICAX6 EQU $034FCIOV EQU $E456 _T = LSB of ^FileName _T+1 = MSB of ^FileName _T+2 = LSB of AuxByte _T+3 = MSB of AuxByte (Unused) _T+4 = LSB of IOdir _T+5 = MSB of IOdir (Unused) _T+6 = LSB of IOCBnum _T+7 = MSB of IOCBnum (Unused) TXA ;Save X register PHA LDX #7 ;Copy heap LDY #12CL1 LDA (_SP),Y STA _T,X DEY DEX BPL CL1 LDA _T+6 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #3 ;Open command STA ICCMD,X LDA _T ;Filename address STA ICBAL,X LDA _T+1 STA ICBAH,X LDA _T+4 ;Data direction STA ICAX1,X LDA _T+2 ;Aux byte STA ICAX2,X JSR CIOV ;Do the I/O PLA ;Restore X register TXA#End; (* FileOpen *)Procedure FileClose(IOCBnum : Integer);Begin#a _T = LSB of IOCBnum _T+1 = MSB of IOCBnum (Unused) TXA ;Save X register PHA LDX #1 ;Copy heap LDY #6CL2 LDA (_SP),Y STA _T,X DEY DEX BPL CL2 LDA _T ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #12 ;Close command STA ICCMD,X JSR CIOV ;Do the I/O PLA ;Restore X register TAX#End; (* FileClose *)Procedure FileGet(IOCBnum : Integer; Var Rec : RecType; RecLen : Integer);Begin#a _T = LSB of RecLen _T+1 = MSB of RecLen _T+2 = LSB of ^Rec _T+3 = MSB of ^Rec _T+4 = LSB of IOCBnum _T+5 = MSB of IOCBnum (Unused) TXA ;Saved X register PHA LDX #5 ;Copy heap LDY #10CL3 LDA (_SP),Y STA _T,X DEY DEX BPL CL3 LDA _T+4 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #7 ;Get record command STA ICCMD,X LDA _T+2 ;Data address STA ICBAL,X LDA _T+3 STA ICBAH,X LDA _T ;Data length STA ICBLL,X LDA _T+1 STA ICBLH,X JSR CIOV ;Do the I/O PLA ;Restore X register TAX#End; (* FileGet *)Procedure FileGetChar(IOCBnum : Integer; Var Byte : Char);Begin#a _T = LSB of ^Byte _T+1 = MSB of ^Byte _T+2 = LSB of IOCBnum _T+3 = MSB of IOCBnum TXA ; Save X register PHA LDX #3 ; Copy heap LDY #8CL4 LDA (_SP),Y STA _T,X DEY DEX BPL CL4 LDA _T+2 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #7 ;Get Record command STA ICCMD,X LDA #0 ;Single byte get STA ICBLL,X STA ICBLH,X JSR CIOV ;Do the I/O LDY #0 ;Store the byte in STA (_T),Y ; 'Byte' PLA ;Restore X register TAX#End; (* FileGetChar *)Procedure FilePut(IOCBnum : Integer; Var Rec : RecType; RecLen : Integer);Begin#a _T = LSB of RecLen _T+1 = MSB of RecLen _T+2 = LSB of ^Rec _T+3 = MSB of ^Rec _T+4 = LSB of IOCBnum _T+5 = MSB of IOCBnum TXA ;Save X register PHA LDX #5 ;Copy heap LDY #10CL5 LDA (_SP),Y STA _T,X DEY DEX BPL CL5 LDA _T+4 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #11 ;Put record command STA ICCMD,X LDA _T+2 ;Data address STA ICBAL,X LDA _T+3 STA ICBAH,X LDA _T ;Data length STA ICBLL,X LDA _T+1 STA ICBLH,X JSR CIOV ;Do the I/O PLA ;Restore X register TAX#End; (* FilePut *)Procedure FilePutChar(IOCBnum : Integer; Byte : Char);Begin#a _T = Byte _T+1 = LSB of IOCBnum _T+2 = MSB of IOCBnum TXA ; Save X register PHA LDX #3 ; Copy heap LDY #8CL6 LDA (_SP),Y STA _T,X DEY DEX BPL CL6 LDA _T+1 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #11 ;Put Record command STA ICCMD,X LDA #0 ;Single byte put STA ICBLL,X STA ICBLH,X LDA _T ;Put Byte in ACC JSR CIOV ;Do the I/O PLA ;Restore X register TAX#End; (* FilePutChar *)Procedure FileNote(IOCBnum : Integer; Var Sector,Byte : Integer);Begin#a _T = LSB of ^Byte _T+1 = MSB of ^Byte _T+2 = LSB of ^Sector _T+3 = MSB of ^Sector _T+4 = LSB of IOCBnum _T+5 = MSB of IOCBnum (Unused) TXA ;Save X register PHA LDX #5 ;Copy heap LDY #10CL7 LDA (_SP),Y STA _T,X DEY DEX BPL CL7 LDA _T+4 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A PHA ;Save for later TAX ;Move to X register LDA #38 ;Note command STA ICCMD,X JSR CIOV ;Do the I/O PLA ;Get IOCB # X 16 TAX ;Move to X register LDY #0 LDA ICAX5,X ;Get LSB of Byte STA (_T),Y LDA ICAX3,X ;Get LSB of Sector STA (_T+2),Y INY LDA #0 ;MSB of Byte STA (_T),Y LDA ICAX4,X ;Get MSB of Sector STA (_T+2),Y PLA ;Restore X register TAX#End; (* FileNote *)Procedure FilePoint(IOCBnum,Sector,Byte : Integer);Begin#a _T = LSB of Byte _T+1 = MSB of Byte (Unused) _T+2 = LSB of Sector _T+3 = MSB of Sector _T+4 = LSB of IOCBnum _T+5 = MSB of IOCBnum (Unused) TXA ;Save X register PHA LDX #5 ;Copy heap LDY #10CL8 LDA (_SP),Y STA _T,X DEY DEX BPL CL8 LDA _T+4 ;Get IOCB # ASL A ;Multiply by 16 ASL A ASL A ASL A TAX ;Move to X register LDA #37 ;Point command STA ICCMD,X LDA _T+2 ;LSB of Sector STA ICAX3,X LDA _T+3 ;MSB of Sector STA ICAX4,X LDA _T ;LSB of Byte STA ICAX5,X JSR CIOV ;Do the I/O PLA ;Restore X register TAX#End; (* FilePoint *)````````````````````````````````
